﻿Imports System.Data.OleDb

Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim oleDbConn As New OleDb.OleDbConnection(ConfigurationManager.ConnectionStrings("").ConnectionString)

        oleDbConn.Open()
        Dim cmdQuery As String = "Select * From food"
        Dim dbcomm = New OleDbCommand(cmdQuery, oleDbConn)
        Dim dbread = dbcomm.ExecuteReader()
        While dbread.Read()
            Response.Write(dbread.Item("Type"))
            Response.Write(dbread.Item("Cuisine"))
            Response.Write(dbread.Item("Cost"))
        End While
    End Sub

End Class